Presentation

1 Source

# setwd("./GitHub/ABM_of_EBG/script")
source('class1.R', echo=TRUE)

## 
## > library(tidyverse)
## 
## > library(R6)
## 
## > Market <- R6Class("Market", public = list(total = NA, 
## +     price = NULL, dprice = NULL, trial = 1, mrow = NA, mcol = NA, 
## +     change = NA, board .... [TRUNCATED] 
## 
## > Player <- R6Class("Player", public = list(type = NULL, 
## +     cash = NULL, stock = NULL, value = NULL, asset = NULL, decision = NULL, 
## +     total = .... [TRUNCATED]

library(plotly)

2 Main Function

Playgame <- function(times, P1type, P2type){
  market <- Market$new(total=100)
  P1 <- Player$new(10000,10,P1type,100)   #P1
  P2 <- Player$new(10000,10,P2type,100)   #P2
  for (i in 1:market$total) {
    P1$decide(market)
    P2$decide(market)
    if(i <= 20){
      market$condition("Balance")
    } else if (i <= 60){
      market$condition("Bubble")
    } else {
      market$condition("Burst")
    }
    market$game(P1$decision[i],P2$decision[i])
    P1$ending(market)
    P2$ending(market)
  }
  data <- list(
    market$price,
    market$dprice,
    P1$cash,
    P1$value,
    P1$asset,
    P1$decision,
    P2$cash,
    P2$value,
    P2$asset,
    P2$decision
  )
  return(data)
}

3 Plot

Hedge_Hedge <- lapply(1:100, FUN = Playgame, P1type = "Hedge", P2type = "Hedge")

Price <- sapply(Hedge_Hedge, "[[", 1) %>% 
  data.frame() %>% 
  add_column(trial = 1:101) %>% 
  pivot_longer(-trial, names_to = "sim_times", values_to = "value")
  
g <- ggplot(Price, aes(x = trial, y = value, group = sim_times)) +
  geom_line(color = "grey") +
  theme_classic()

ggplotly(g)